Geojson Testing

Setup

Packages

# Packages
require(ggplot2)
require(plotly)
require(geojsonio)
require(sp)
require(sf)

Functions

# Given a geojson file, return an SF object for plotting
geojson_sf <- 
  function(file){
    data <- geojson_read(file, what = "sp")
    return(st_as_sf(data))
  }

Data

# Download file

url = "https://opendata.arcgis.com/datasets/5f45e1ece6e14ef5866974a7b57d3b95_1.geojson"

file = "NJ_counties.geojson"

download.file(url,file)

#NJ_Counties <- geojson_sf(file)

NJ_Counties %>%
  plot_ly(fill = ~COUNTY)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter